home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3plsar.arc / BACKUP.PRG < prev    next >
Encoding:
Text File  |  1986-08-04  |  772 b   |  35 lines
  1. ********************(BACKUP.PRG)
  2. CLEA
  3. @ 15,20 SAY 'Please install backup floppy disk in drive A:'
  4. WAIT '                                     '
  5. @ 18,20 SAY 'Are you ready to back up your data files?'
  6. STORE ' ' TO OPTION
  7. WAIT '                                     ' TO OPTION
  8. IF OPTION<>'Y'
  9.    CLEA
  10.    ? '                        Press F9 to return to menu...'
  11.    RETURN
  12. ENDIF
  13. USE
  14. SET TALK ON
  15. SET ECHO ON
  16. CLEA
  17. DELE FILE TEMP.DBF
  18. COPY FILE CUST.DBF TO A:CUST.DBF
  19. COPY FILE INV.DBF TO A:INV.DBF
  20. COPY FILE SALES.DBF TO A:SALES.DBF
  21. COPY FILE ACCTS.NDX TO A:ACCTS.NDX
  22. COPY FILE ACCT.NDX TO A:ACCT.NDX
  23. SET TALK OFF
  24. SET ECHO OFF
  25. ?
  26. ?
  27. STORE ' ' TO OPTION
  28. ? 'Want to exit? '
  29. WAIT ' ' TO OPTION
  30. IF OPTION='Y'
  31.    CLEA
  32.    CALL CAPSOFF.BIN
  33.    QUIT
  34. ENDIF
  35.